10 PRINT"[147]"
20 POKE 53280,0:POKE53281,15:POKE646,0
30 PRINT"          [146] [160]    [146]       [146]     [146]      [146]"
40 PRINT"        [146]   [146][160]     [146]      [146]    [146] [160]   [146]"
50 PRINT"        [146]   [146]   [146]    [146]   [146]  [160]   [146]    [146]"
60 PRINT"          [146]        [146]    [146]     [146]    [146]"
70 PRINT"        [146]   [146]   [146]    [146]     [146]    [146]    [146]"
80 PRINT"        [146]   [146]   [146]    [146][160]    [146]    [146]     [146]"
90 PRINT"          [146]    [146]    [146]    [146]      [146]      [146]"
100 PRINT"       DIGITAL TALK BASIC CORNER"
110 L$="SPRITES,P,R"
120 PRINT"           VON FORD PREFECT"
130 PRINT" LADE SPRITES..."
140 OPEN 1,8,2,L$
150 GET #1,NO$,NO$: REM BYTES UEBERLESEN
170   FOR L = 12288 TO 12864
180     GET#1,BYTE$
190      IFBYTE$=""THENPOKEL,0:NEXTL
200    POKE L,ASC(BYTE$)
210 NEXT L
220 CLOSE 1
230 :
240 FOR T = 0 TO 7
250     POKE 53287+T,0
260  NEXT T
270  REM    ALLE SPRITES SCHWARZ
280 :
290 FORL=0TO5
300 POKE 2040+L,192+L
310 NEXTL
320 REM      SPRITE POINTER SETZTEN
330 PRINT"[147]";
340 POKE 53269,255:REM ALLE SPRITES AN
350 FORL=0TO10STEP2:POKE53249+L,50:NEXTL:
360 FORL=255 TO 50STEP-2:POKE53248,L:NEXTL
370 FORL=255 TO 62STEP-2:POKE53250,L:NEXTL
380 FORL=255 TO 82STEP-2:POKE53252,L:NEXTL
390 FORL=255 TO 97STEP-2:POKE53254,L:NEXTL
400 FORL=255 TO104STEP-2:POKE53256,L:NEXTL
410 TX$="BASIC CORNER"
420 FORL=12TO1STEP-1:PRINT"                 ";MID$(TX$,L,12):
430 FORG=0TO25:NEXTG,L
440 PRINT" BITTE AUSWAEHLEN MIT JOY IN PORT II..."
450 PRINT"    ...SPRITE ANIMATION"
460 PRINT""
470 PRINT"    ...ENDE"
480 :
490 REM AUFWAERTS
500 GOSUB 610:FL=1
510 FORL=0TO3:POKE2045,197+L
520 IFPEEK(56320)=126THENGOSUB610
530 IFPEEK(56320)=125THENGOSUB620
540 IFPEEK(56320)=111THEN ON FL GOTO 630,1330
550 NEXTL
560 FORG=3TO0STEP-1:POKE2045,197+G
570 IFPEEK(56320)=126THENGOSUB610
580 IFPEEK(56320)=125THENGOSUB620
590 IFPEEK(56320)=111THEN ON FL GOTO 630,1330
600 NEXTG:GOTO 510
610 POKE53258,47:POKE53259,103:FL=1:RETURN
620 POKE53258,47:POKE53259,127:FL=2:RETURN
630 PRINT"[147]";:POKE53269,0
640 PRINT"        DIE SPRITE ANIMATION"
650 PRINT" MAN BENOETIGT ZUNAECHST EINE"
660 PRINT" ANIMATIONSREIHE, DIE IM SPEICHER "
670 PRINT" HINTEREINANDER ABGELEGT WERDEN MUSS."
680 PRINT" DER ANIMIERTE KREIS IN DIESEM PROGRAMM"
690 PRINT" LIEGT FOLGENDERMASSEN IM RAM :"
700 POKE2040,197:POKE2041,198:POKE2042,199:POKE2043,200
710 POKE 53269,15:FORT=0TO8STEP2:POKE53249+T,150:NEXTT
720 POKE53248,47:POKE53250,95:POKE53252,150:POKE53254,200
730 PRINT"   1     2      3     4"
740 PRINT" DABEI LIEGT SPRITE 1 VON 12608-";12608+63
750 PRINT" IM SPEICHER, 2 VON ";12608+64;" BIS ";12608+127
760 PRINT" USW."
770 PRINT"           TASTE DRUECKEN !"
780 GETA$:IFA$=""THEN780
790 POKE53269,0:PRINT"[147]";
800 PRINT" IN DEN SPEICHERZELLEN 2040-2047 WERDEN"
810 PRINT" DIE LAGEN DER SPRITES IM RAM FEST-"
820 PRINT" GEHALTEN. DA UNSERE ANIMATIONSSPRITES"
830 PRINT" HINTEREINANDER IM RAM LIEGEN, BRAUCHT"
840 PRINT" MAN LEDIGLICH DIE WERTE IN EINER "
850 PRINT" SCHLEIFE ZU ERHOEHEN ."
860 PRINT"                TASTE !"
870 GETA$:IFA$=""THEN870
880 PRINT"[145][145]"
890 PRINT"10 FOR L = 197[144] TO 200[144]  "
900 PRINT"20 POKE 2040[144],L
910 [153]"30 NEXT L"
920 [153]"40 GOTO 10"
930 [153]" TASTE !"
940 [161]A$:[139]A$[178]""[167]940
950 [153]"ON              ONON"
960 [151]2040,197:[151]53269,1:[151]53248,220:[151]53249,140
970 [156]:[129]G[178]0[164]5:[129]L[178]197[164]200:[151]2040,L:[129]M[178]1[164]80:[130]M,L,G
980 [153]" NANU ? WIESO IST DIE ANIMATION SO AB-"
990 [153]" GEHACKT ?"
1000 [153]" ERINNERN WIR UNS : IN DER ANIMATIONS-"
1010 [153]" REIHE WURDE DER BALL IMMER ETWAS"
1020 [153]" KLEINER, ALLERDINGS NICHT GROESSER !"
1030 [153]" DAS BRAUCHT'S AUCH NICHT, DENN MAN "
1040 [153]" KANN JA DIE SCHLEIFE AUCH HERABZAEHLEN,";
1050 [153]" SO DASS DER FILM PRAKTISCH RUECKWAERTS"
1060 [153]" LAEUFT !"
1070 [153]"                  TASTE !"
1080 [161]A$:[139]A$[178]""[167]1080
1090 [151] 53269,0:[153]"LOAD";
1100 [153]" PROBIEREN WIR'S MAL MIT FOLGENDEM"
1110 [153]" PROGRAMM :"
1120 [153]"10 FOR L = 197 TO 200"
1130 [153]"20 POKE 2040,L"
1140 [153]"30 NEXT L"
1150 [153]"40 FOR L = 199 TO 196 STEP -1STOP"
1160 [153]"50 POKE 2040,L
1170 PRINT"60 NEXT L
1180 [153]"70 GOTO 10"
1190 [153]"                TASTE !"
1200 [161]A$:[139]A$[178]""[167]1200
1210 [153]"ON                       "
1220 [151] 53248,200:[151]53249,110:[151]53269,1:[156]
1230 [129]G[178]1[164]5:[129]L[178]197[164]200:[151]2040,L:[129]M[178]1[164]80:[130]M,L
1240 [129]L[178]199[164]198[169][171]1:[151]2040,L:[129]M[178]1[164]80:[130]M,L,G
1250 [153]" NA BITTE ! ALLES LAEUFT PRIMSTENS !"
1260 [153]" TASTE -> ZURUECK INS MENUE"
1270 [161]A$:[139]A$[178]""[167]1270
1280 [129]L[178]53248[164]53260:[151]L,0:[130]L:[151]53269,0:[137]240
1290 :
1300 : [143]          MENUEPUNKT 2
1310 :
1320 :
1330 [151]53269,0:[153]"LOAD DIESER BASIC-CORNER WURDE PROGRAMMIERT"
1340 [153]" VON  :   FORD PREFECT"
1350 [153]" RUECKFRAGEN ENTWEDER UEBER C-F,"
1360 [153]" DIGITAL TALK ODER EINEN BRIEF MIT RP"
1370 [153]" AN MICH SENDEN (ADRESSE SIEHE"
1380 [153]" DIGITAL TALK ADRESS-BOOK) ! "
1390 [153]" AUF WIEDERLESEN !"